Delphi 2.0 - Programmer's Utilities Power Pack

home *** CD-ROM | disk | FTP | other *** search

/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / s_to_z / videx / testvbx.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-09-15 | 7.7 KB | 221 lines

Form1 Videx VBX Text Program Form15 Command3 &Cancel Command2 &Initialize Command1 &Download Picture1 Videx1 Videx Files &Files mnu_Exit &Exit Options &Options mnu_StatusText Show Status &Text mnu_ErrorMsg Show &Error Messages mnu_Program &Load Program mnu_CommPort Set Comm &Port mnu_WandID Set Wand &ID Videx1_ComInputQ vDate vTime vType Videx1_ComError vError Videx1_ComEnd" Videx1_Click @ Form_Load IFrame1_Click Picture1_Click* Command1_Click MB_YESNOz sgBox< Command2_Click ThenEndg Videx< Videx1a VidexOpen Command3_Click VidexStart Check2_Click Check1_Click Check1" Value vSendProgram4 VidexShowText Panel3D1_DragDrop Source Control Check2 Pring, vFormatDate vFormatTime vLoadProgram vStart vShowStatus$ els4e check InvalidateRect MyData RectK Command4_Clickr Check3_Click vShowErrorsM Check3~ mnu_StatusText_Click mnu_StatusTexti mnu_ErrorMsg mnu_ProgramS menu= matchG property~ mnu_CommPort_Click Answers define EN_TIMEOUT EN_FAULT EN_IOERROR` EN_UNAVAIL EN_BUFFOVERQ EN_VTIMEOUT/ EN_OPENg EN_BAUDRATE\ EN_MEMORY EN_UNKNOWN EN_BADWANDID EN_NOTIMERS ES_HEAD% ES_VIDEX ES_TIMEOUT ES_FAULT ES_IOERROR ES_UNAVAIL, ES_BUFFOVER4 ES_VTIMEOUT ES_OPEN ES_BAUDRATEK ES_MEMORY, ES_UNKNOWNh ES_BADWANDID ES_NOTIMERS reader already opened Unsupported selected UnableV allocate memory queues Unknown Invalid Valid clocks timers tried messagebox Checkedk mnu_Program_Click mnu_ErrorMsg_Click mnu_WandID_Click CommPort mnu_Exit_Click vCommPort information prior program scanning InitRecord RegularRec InitRec Command1_Click Initiate download action to the wand= Command2_Click Initiate Initialization of reader Command3_Click Send Cancel command to control by setting vStart to zero. Form_Load Set check mark in menu item to match property Set check mark in menu item to match property Set check mark in menu item to match property mnu_CommPort_Click Get a number between 0 and 4 for Comm Port= Loop until a valid number has been enteredI Enter Comm Port (1-4) COMM PORT Change the CommPort property to match entry Note: CommPort Property is zero based mnu_ErrorMsg_Click mnu_Exit_Click mnu_Program_Click mnu_StatusText_Click mnu_WandID_Click Get a number between 0 and 65535 for Wand ID= Loop until a valid number has been enteredI Enter Wand ID (0-65535) WAND ID Change the vID property to match entry= Videx1_Click You have clicked-on the Videx control Videx1_ComEnd ======================================================== ComEnd Event has fired... If you have more readers to talk to, set the next vID number and reset the vStart property. ======================================================== Videx1_ComError All of the communication errors have been converted to the standard BASIC error numbers:h Err 24 - Device time-outr Err 25 - Device fault Err 57 - Device I/O error Err 68 - Device Unavailable (Bad comm port selection)p Err 69 - Buffer overflowb Also, Some custom errors have been added. Many of the errors cannot happen due to my control over events. e For example, I set the baud rate internally and have control over communication states.n Too many clocks or timers would happen if you ran 32e (maximum timers) instances of the clock program and t then tried to run this program. I use one timer. Err 255 - Videx reader time-out Err 254 - Comm port already openedr Err 253 - Unsupported baud rate selectedr Err 252 - Unable to allocate memory queues Err 251 - Unknown comm error Err 250 - Invalid wand ID. Valid are 0-65535 Err 249 - ERROR! Too many clocks or timers" NOTE: If vShowErrors is set to True, the Videxd control pops-up a messagebox with the error t information just prior to this event being called.. Error Event happened. Err# Videx1_ComInput This is where the data from the reader is sent. vDate is the date string. The format is set with vFormatDate property vTime is the time string. The format is set with vFormatTime property vRec is the bar code data. vType is a flag for the type of record in the que.m vType = 0: Not a bar code but rather the date and time of the lastr initialization of the reader. vRec is NULL.e vType = 1: vRec has bar code data.c NOTE: In this beta version, I use a default code 3 of 9 bi-directional scanning program. Initialize date: -------------------------------------------------------- You can change the DATE and TIME formats with the vFormatDate and vFormatTime properties. You can also hide status text with vShowStatus property --------------------------------------------------------